APPENDIX F 

LISTING OF THE SYSTEM MACRO FILE 
(SYSMAC.SML) 



.MACRO 


.PARAM 




R0f%*O0 






R1«%A01 






R2*%*02 






R3«%A03 






R4i%AQ4 






R5iXA05 






R6-XA06 






R7i%a07 






SPfXA06 






PC»%a07 






PSW»A0177776 






SHR»aO177570 






.ENDM 






.MACRO 


,INIT 


.LBLCK 


.MCALL 


.AMODE 




.AMQDE 


.LBLCK 




EMT <aq6> 




.ENDM 






.MACRO 


.RU3E 


.LBLCK 


.MCALU 


.AMODE 




.AMODE 


.LBLCK 




EMT <A07> 




.ENDM 




4 


.MACRO 


.CLOSE 


, LBLCK 


.MCALL 


, AMODE 




, AMODE 


.LBLCK 




EMT <A017> 




,ENDM 






.MACRO 


.READ 


.LBLCK,. LBUFF 


.MCALL 


, AMODE 




.AMODE 


.LBUFF 




.AMODE 


.LBLCK 




EMT <A04> 




,ENDM 






.MACRO 


.WRITE 


.LBLCK,. LBUFF 


.MCALL 


.AMODE 




.AMODE 


.LBUFF 




.AMODE 


.LBLCK 




EMT <A02 


>> 




,ENDM 




' \ 


.MACRO 


.OPENO 


.LBLCK, .FBLCK 


.MCALL 


.CODE,. 


OPEN 


.CODE 


.FBLCK, 


<A02> 


.OPEN 


.LBLCK, 


.FBLCK 


,ENDM 
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.MACRO .OPENI .LBLCK, .FBLCK 

.MCALL .CODE, .OPEN 

.CODE .FBLCK, <a04> 

.OPEN .LBLCK, .FBLCK 

.ENDM 

.MACRO .OPENU .LBLCK, .FBLCK 

.MCALL .CODE, .OPEN 

.CODE .FBLCK, <AOl> 

.OPEN .LBLCK, .FBLCK 

.ENDM 



.MACRO .OPENC .LBLCK, .FBLCK 

.MCALL .CODE, .OPEN 

.CODE .FBLCK, <A013> 

.OPEN .LBLCK, .FBLCK 

.ENDM 

.MACRO .OPENE .LBLCK,. FBLCK 

, MCALL ,CODE,,OPEN 

.CODE , FBLCK, <A03> 

.OPEN .LBLCK,. FBLCK 

.ENDM 

.MACRO .OPEN .LBLCK,. FBLCK 

.MCALL .AMODE 

.AMODE .FBLCK 

.AMODE .LBLCK 

EMT <a016> 

.ENDM 

.MACRO .WAIT .LBLCK 

.MCALL , AMODE 

.AMODE .LBLCK 
EMT <A01> 

.ENDM 

.MACRO .WAITR . LBLCK,. ADDR 

.MCALL .AMODE 

.AMODE .ADDR 

.AMODE .LBLCK 

EMT <AQ0> 

.ENDM 

.MACRO .BLOCK .LBLCK, .BBLCK 

.MCALL .AMODE 

, AMODE .BBLCK 

, AMODE .LBLCK 

EMT <AOll> 

.ENDM 

.MACRO .TRAN .LBLCK, .TBLCK 

, MCALL , AMODE 

, AMODE .TBLCK 

.AMODE .LBLCK 

EMT <AO10> 

.ENDM 
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.MACRO .SPEC 
.MCALL .AMODE 
.AMODE ,SARG 
.AMODE .LBLCK 
EMT <A012> 
.ENDM 


, LBLCK, .SARG 


.MACRO .STAT 
.MCALL .AMODE 
.AMODE .LBLCK 
EMT <*013> 
.ENDM 


•LBLCK 


.MACRO .ALLOC 
.MCALL .AMODE 
.AMODE ,N 
.AMODE .FBLCK 
.AMODE .LBLCK 
EMT <*0i5> 
,ENDM 


.LBLCK, .FBLCK 


.MACRO .DELET 
, MCALL .AMODE 
.AMODE .FBLCK 
, AMODE '.LBLCK 
EMT <A021> 
.ENDM 


•LBLCK, .FBLCK 



.MACRO .RENAM .LBLCK, ,OFB# ,NFB 

.MCALL , AMODE 

.AMODE .NFB 

.AMODE ,OFB 

.AMODE .LBLCK 

EMT <AO20> 

.ENDM 



.LBLCK, ,1FB#.2FB 



.MACRO ' .APPND 

.MCALL .AMODE 

, AMODE ,2FB 

.AMODE ,1FB 

.AMODE '.LBLCK 

EMT <*022> 

.ENDM 



.MACRO .LOOK .LBLCK, .FBLCK,, OP 

.MCALL .AMODE 

.AMODE .FBLCK 

.IIF NB,,OP,CLR -CSP) 

.AMODE .LBLCK 

EMT <A014> 

.ENDM 



.MACRO .KEEP 
.MCALL .AMODE 
•AMODE .FBLCK 
.AMODE .LBLCK 
EMT <A024> 
,ENDM 

.MACRO .EXIT 
EMT <aO60> 
.ENDM 



•LBLCK,. FBLCK 
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.MACRO .TRAP ,STUS,,ADDR 

.MCALL .AMODE 

.AMODE ,ADDR 

.AMODE .STUS 

MOV #a01,-CSP) 

EMT <A041> 

.ENDM 

.MACRO .STFPU a STUS»*ADDP 

.MCALL .AMODE 

.AMODE .ADDR 

.AMODE ,STUS 

MOV #a03,"(3P) 

EMT <A041> 

,ENDM 

.MACRO .RECRD .LBLCK, .RBLCK 

.MCALL .AMODE 

.AMODE .RBLCK 

.AMODE .LBLCK 

EMT <A02S> 

.ENDM 

.MACRO .DUMP ,LOW,.HIC5H,«CDE 

.MCALL .AMODE 

.AMODE .LOW 

.AMODE .HIGH 

.AMODE ,CDE 

EMT <aQ64> 

.ENDM 

.MACRO .RSTRT ,ADDR 

.MCALL , AMODE 

.AMODE ,ADDR 

MOV #aQ2,-(SP) 



EMT.<A04i> 
.ENDM 

.MACRO .CORE 

MOV #AO100,»CSP) 

EMT <A041> 

.ENDM 

.MACRO ,MONR 

MOV #AOi01,«(SP) 

EMT <A041> 

,ENDM 

.MACRO ,MONF 

MOV #AO102,-CSP) 

EMT <A04t> 

.ENDM 

.MACRO .DATE 

MOV #aQ103,-CSP) 

EMT <AQ41> 

.ENDM 
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.MACRO .TIME 
MOV *AOi04, 
EMT <A04l> 
,ENOM 



<SP) 



.MACRO .GTUIC 

MOV #AO105,-CSP) 

EMT <A04l> 

,ENDM 

.MACRO .SY3DV 

MOV #aO106,»CSP) 

EMT <A04i> 

,ENDM 



.MACRO .RADPK 
.MCALL .AMODE 
.AMODE .ADDR 
CUR -CSP) 
EMT <A042> 
,ENOM 



• ADOR 



.MACRO .RAOUP .ADDR#,WRD 

.MCALL .AMODE 

.AMODE ,WRD 

.AMODE .ADDR 

MOV #AOt,»CSP) 

EMT <A042> 

,ENDM 

.MACRO .D2BIN .ADDR 

.MCALL .AMODE 

.AMODE .ADDR 

MOV #A02,-(SP) 

EMT «A042> 

,ENDM 

.MACRO .BIN2D ,ADDR#,WRD 

.MCALL .AMODE 

, AMODE ,WRD 

.AMODE .ADDR 

MOV #A03,»CSP) 

EMT <A042> 

,ENDM 



.MACRO 


.02BIN 


.ADDR 


•MCALL 


, AMODE 




.AMODE 


.ADDR 




MOV 


#aQ4,* 


CSP) 


EMT <A042> 




.ENDM 






.MACRO 


.8IN20 


.ADDRr.WRD 


•MCALL 


.AMODE 




.AMODE 


,WRD 




.AMODE 


.ADDR 




MOV 


#a05, »i 


CSP) 


EMT <A042> 




.ENDM 
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.MACRO ,CSIl .CMDBF 

.MCALL .AMODE 

.AMODE .CMDBF 
EMT <A056> 
,ENDM 

.MACRO ,CSI2 .CSBLK 

.MCALL .AMODE 

.AMODE .CSBLK 
EMT <A057> 
.ENDM 

.MACRO .DTCVT ,ADDR 

,MCAIL .CVTDT 

.CVTDT #AO0,.ADDR 

.ENDM 

.MACRO .TMCVT ,ADDR 

.MCALL .CVTDT 

.CVTDT *a01,,ADDR 

.ENDM 



.MACRO 


.CVTDT ,CDE, . ADDR, „VALi* . VAL2 


.MCALL 


.AMODE 


.IF 


NB,.VAL2 


.AMODE 


,VAL2 


,ENDC 




.IF 


NB", .VAL1 


.AMODE 


.VAL1 


,ENDC 




.AMODE 


.ADDR 


.AMODE 


,CDE 


EMT <*066> 


.ENDM 




.MACRO 


.GTPLA 


CLR 


-CSP) 


MOV 


#a05,-(SP) 


EMT <A04l> 


.ENDM 





.MACRO .STPUA .ADDR 

.MCALL .AMODE 

.AMODE .ADDR 

MOV #A05,-(SP) 

EMT <AQ41> 

.ENDM 

.MACRO .GTCIL 

MOV k #A0tilf(3P) 

EMT <A04i> 

,ENDM 

.MACRO .GTSTK 

CLR -CSP) 

MOV #aQ4,»(SP) 

EMT <A041> 

.ENDM 

.MACRO '.ST3TK .ADDR 
.MCALL .AMODE 
, AMODE .ADDR 
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MOV «a04,-(SP) 
EMT <A04J> 

,ENDM 

.MACRO .RUN .RNBLK 
.MCALL .AMODE 
.AMODE .RNBLK 
EMT <A065> 
,ENDM 

.MACRO .FLUSH f CDE 
.MCALL .AMODE 
.AMODE ,CDE 
EMT <A067> 
,ENDM 

THE MACRO , AMODE ACCEPTS ONE ARGUMENT AND 

AS A FUNCTION OF THE ADDRESSING MODE OF 

THE ARGUMENT GENERATES THE APPROPRIATE 

MOV TO -CSP), 

ADDRESS MODES THAT ARE TROUBLESOME (E.G. 

XCSP)) OR UNLIKELY (E.G. SP) WILL RESULT 

IN A .ERROR TO CMO INCLUDING THE 

VALUE OF THE ADDRESS MODE (E.G. XCSP) 

IS REPRESENTED AS 000066), THE ARGUMENT ITSELF 

AND THE TEXT "ADDRESSING MODE ILLEGAL AS SYSTEM 

MACRO ARGUMENT". 



SP*%*06 



.MACRO .AMODE t ARG 

.NTYPE ,SYM,.ARG v > .SYMM0DRES8 MODE, 

.IF LE,,SYM»aG5 

MOV ,ARG,*(SP) |R0 TO R5 

.MEXIT 

,ENDC 

.IF EQr.8YM&AC70-AO10 

,IF LE,,SYM&a07*ao6 

MOV ,ARG,-CSP) |»R0 TO »R6 

.MEXIT 

,ENDC 

.ENDC 

.IF EQ,.SYM&aO60-aO20 

MOV ,ARG,-CSP) |[i](R0)* TO [#HR7) + 

.MEXIT f #N,##ADDR 

.ENDC 

.IF EQ,,SYM&aO40«aO40 

.IF LE,,SYM&a07-ao5 

MOV ,ARG,-CSP) >C#3-(R0) TO t#]»(R5) 

•MEXIT | C#3XCR0) TO C#]X(R5) 

.ENDC 

• ENDC 

.IF EQ,,SYM&a067-a067 

MOV ,ARG,*(SP) fAODR AND *ADDR 

.MEXIT 

.ENDC 
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.ERROR .SYM 
.PRINT 

.ENDM 



j.ARG ADDRESSING MODE ILLEGAL 
tAS SYSTEM MACRO ARGUMENT, 



> THE MACRO .CODE SETS UP THE FILEBLOCK 

1 WITH THE HOW OPEN CODE, 

1 THE ADDRESS OF THE FILEBLOCK MUST 

1 BE IN A REGISTER (R0 TO R5) 

.MACRO ,CODE ,FBLK#,N 
.NTYPE ,SYM,.FBLK 

.IF LE,.SYM-a05 

MOVB #.N,-aQ2C.PBLK) ;R0 TO RS 

.MEXIT 

,ENDC 



.ERROR ,3YM 

.PRINT 

.ENDM 



I.FBLK ADDRESSING MODE ILLEGAL 
fFOR .OPEN file block 



.F4SEQ 

.MCALL 
.MCALL 
,MCALL 
, MCALL 



.MACRO 
.IF NB 



.F4DEF 

N 



N 



■ N 

.ENDC 

,MVMRB,,MVMRL*,MVMRI,.MVMRJ, .MVMRR, .MVMRD, .MVMRC 

,MV3RB,,MVSRL*,MVSRIr.MVSRj,,MVSRR,.MVSRD# t MVSRC 

,MVRSB,.MVRSLf ,MVRSI f .MVRSj,,MVRSRr,MVR8D#,MVRSC 

,MVRMB,.MVRMt,,,MVRMI,.MVRMJ,.MVRMR, .MVRMD#,MVRMC 

, MCALL F4RTN 

.IF EQ .F4SEG 

, MCALL ,F40LD 
.F40LD 



.F40LD 

.MEXIT 

.ENDC 

.IF EQ 

.MCALL 

.F4NEW 

.MEXIT 

.ENDC 

.ERROR 

.ENDM 



<.F4SEQ-1>*«,F4SEQ.2> 

.F4NEW 



jMACRO TO DEFINE OLD FORM 
.MACRO ,F40LD 
.MACRO ,F4RTS 
RTS X5 
.ENDM 
, MCALL 



NfFORTRAM CALL SEQUENCE DEFINITIONAL ERROR 



SSL 



LABELS 



.ENDM 

.MCALL ,F4P1,,F4P2,F4VAL2 

.MACRO F4CALL SUB, ARGS, ?LABEL 

«0 



,IRP 
.F4Pi 

.ENDM 

JSR 

BR 

,IRP 

,F4P2 

.ENDM 

.ENDM 

.ENDM 



X#«ARGS> 
LABELfX 

X5,SUB 
,*2*$SL 
X,<ARGS> 
X 
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>MACRO TO DEFINE THE NEW 
.MACRO .F4NEW 
.MACRO .F4RT3 
RT3 %7 
.ENDM 



FORM 



SSL 



LABELl 



.ENDM 

.MCALL ,F4Pi,,F4P2,F4VAL2 

.MACRO F4CALL SUB, ARGS,?LABEL 



■ 

,IRP 

.F4PI 

,ENDM 

.IF NE 

MOV 

,ENDC 

MOV 

JSR 

BR 

.BYTE 

.IRP 
.F4P2 
,ENDM 
,IF NE 

MOV 
.ENDC 
.ENOM 
,ENDN 



X/<ARGS> 
LABELS 

.F4SE0-2 
%5,-C%6) 

#UBEU%5 

%7,$U6 

,+4+SSL 

$$L/2r0 

Xf<AR6S> 

X 

.F4SEQ-2 
<X6H,%5 



, MACRO TO BUILD THE DYNAMIC PART OF ARG LIST 
.MACRO ,F4P1 L,X»Y 



SSL 



SSL 



S$L 



,NAR$ 


S»N 


.IF EQ 


SSN-3 


MOV 


XrL+2+SSL 


.IF NE 


Y 


ADD 


#Y,L+2+S$L 


.ENDC 




pSSL+2 




.MEXIT 




.ENDC 




• IF NE 


SSN-2 


.ERROR 


»BAD F4CALL ARG 


.MEXIT 




.ENDC 




.IF B 


X 


b$SL+2 




.MEXIT 




.ENDC 




.NTYPE 


$SAM,X 


,IF NE 


$$AM«a067 


MOV 


X#L+2+SSL 


.ENDC 




pS$L+2 




.ENDM 
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lHACRO TO DO STATIC PART OF ARG LIST 
.MACRO .F4P2 X,Y 
,IF B X 
.WORD »1 
.MEXIT 
,ENDC 
.IF SB Y 
.WORD -I 
.MEXIT 
.ENDC 

.NTYPE $$AM,X 
,IF EQ S$AMia067' 
.WORD X 
.IFF 

.WORD »1 
,ENDC 
,ENDM 



jMACRO TO DO FORTRAN RETURNS 
.MACRO F4RTN T,L 
.IF NB 
.IF B 
.ERROR 
,ENDC 
.ENDC 
.IF NB 
.IF NB 
.NTYPE 
.IF EQ 
.MVMR'T 
.IFF 
.IF EQ 
,IF EQ 
.ERROR 
.IFF 
.MVSR'T 
.ENDC 
.IFF 
.ERROR 
.ENDC 
.ENDC 
.ENDC 
.ENDC 
.F4RTS 
,ENDM 

fMACRO TO DO FORTRAN VALUE STORE 
.MACRO F4VAL2 T#L 



T 
L 
jMISSING ARGUMENT 



T 
L 

$$AM,L 
$$AM-K>67 

L 

$$AM&tO70-+O20 

$$AM-+027 

$$AM*BAD ADDRESS MODE 



$$AM>BAD ADDRESS MODE 



.NTYPE 

.IF EQ 

.MVRS'T 

.MEXIT 

.ENDC 

.IF EQ 

.MVRM'T 

.MEXIT 

.ENDC 

.ERROR 

,ENDM 



$$AM,L 
$SAM&aO70-aO40 

L 



$$AM»A06; f 
L 

SSAMjBAD ADDRESS MODE 
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{MACROS TO MOVE FROM MEMORY TO REGISTERS 
{BYTE 

.MACRO """~ B 4 

MOVB 

,ENDM 
{LOGICAL 



.MVMRB A 
A»X0 



.MACRO .MVMRL A 



MOV 



{ 



,ENDM 
INTEGER 



A#X0 



- .MACRO .MVMRI A 
MOV A#X0 
.ENDM 

{DOUBLE INTEGER 

.MACRO .MVMRJ A 
MOV A#X0 
MOV A+2»X1 
,ENDM 

{REAL 



.MACRO 
MOV 
MOV 
.ENDM 

^DOUBLE REAL 

.MACRO 

MOV 

MOV 

MOV 

MOV 

.ENDM 

{COMPLEX 

.MACRO 
.MVMRD 
.ENDM 



.MVMRR 

A,X0 

2+A,Xl 



.MVMRD 

A,X0 

2+AfXl 

4tA#X2 

6+A,X3 



,MVMRC A 



{MACROS TO MOVE FROM STACK TO REGISTERS 
{BYTE 

.MVSRB A 

A,X0 



{LOGICAL 



.MACRO 

MOVB 

.ENDM 



{INTEGER 



.MACRO 

MOV 

.ENDM 



.MVSRL 
A#X0 



MOV 
,ENDM 
{DOUBLE INTEGER 
.MACRO 
MOV 
MOV 
.ENDM 

.MACRO 
MOV 
MOV 
.ENDM 



.MACRO .MVSRI A 



{REAL 



A»X0 



.MVSRJ A 

AfX0 

A,Xi 



.MVSRR 

A/X0 

A#Xt 
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fDOUBLE REAL 

.MACRO 

MOV 

MOV 

MOV 

MOV 

.ENDM 



(COMPLEX 



.MACRO 
.MV3RD 
.ENDM 



.MVSRD 
A,X0 
A, XI 
A#%2 
A,X3 



.MVSRC 
A 



iMACROS 
jBYTE 



lLOGICAL 
^INTEGER 
yDOUBLE 

fREAL 

yDOUBLE 



TO MOVE FROM REGISTERS TO STACK 

.MACRO .MVRSB A 

MOVB %0*A 
.ENDM 



^COMPLEX 



.MACRO 

MOV 

.ENDM 

.MACRO 

MOV 

.ENDM 

INTEGER 

.MACRO 

MOV 

MOV 

.ENDM 

.MACRO 

MOV 

MOV 

.ENDM 

REAL 

.MACRO 

MOV 

MOV 

MOV 

MOV 

.ENDM 



.MVRSL 
%0*A 



.MVRSI 
%0(.A 



.MVRSJ 

%UA 

XflirA 



.MVRSR 

X1#A 

%0/A 



.MVRSD 

X3,A 

X2„A 

XUA 

X0»A 



.MACRO .MVRSC A 

.MVRSD A 

,ENDM 
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I MACROS TO MOVE 
fBYTE 



•MACRO 
MOVB 



,ENDM 
LOGICAL 



.MACRO 
MOV 



• ENDM 
lINTEGER 

.MACRO 
MOV 

• ENDM 
jDOUBLE INTEGER 

.MACRO 



FROM REGISTERS TO MEMORY 

.MVRMB A 
X0,A 



,MVRML A 
X0,A 



>R£AL 



MOV 
MOV 
,ENDM 

.MACRO 

MOV 

MOV 



,ENDM 
jDOUBLE REAL 



.MACRO 

MOV 

MOV 

MOV 

MOV 



.ENDM 
fCOMPLE* 



.MACRO 
.MVRMO 

• ENDM 

.MACRO 

CIR 

CLR 

MOV 

EMT 

.ENDM 

.MACRO 
MOV 
EMT 
.ENDM 

.MACRO 

MOV 

EMT 

• ENDM 



.MVRMI A 
%0#A 



,MVRMJ A 

X0#A 

Xl,A+2 



.MVRMR 

X0#A 

Xl#2+A 



,MVRMD 
X0»A 
XI, 2* A 
X2,4+A 
X3,6+A 



MVRMC A 



.GTRDV 

• CSP) 

• CSP) 

#U2,«(SP) 
41 



.GTCLK 

#U3,*(SP) 

41 



t GTOVF 
#114,«.<SP) 
41 
.GTOVP 
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